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PROGRAM ob5er_.87.-68, 

CONST 

obcon = 18; 
oleon » 6; 
hocon = 3; 

TYPE 

obsertype * l ..obcon; 
pi datatype - 1 ..plcon; 
hoogtetype = 1 ..hocon, 

VAR 

iob3, Robs: ARRAYfobsertype] OF integer; 

Iplaats, Rplaats : ARRAY! plaatatypej OF integer; 

Ihoogte, Rhtwgte : ARRAYf hoogtetype] OF integer; 

datum : ARRAY! 1 -?} OF char; 

ratnu, i,j, k :inteqer; 

indeiing: ARRAY! i .4] OF integer, 

pri, inf: text; 

uit: ARRAY! 1 4] OF text; 

PROCEDURE start; 

YAR 

r : Reel; 
naam: str255; 
i: integer; 

BEGIN 

r.top := 45; 
r.left 10; 
r.bottom := 300; 
r right = 500, 

SetTextRect(r); 

ShowText; 

vrite(‘inputfilenaam:'); 
readln(naam), 
reset(inf, naam); 

FOR i := i TO 4 DO 
BEGIN 

vrite('outputfilenaam ',i: 1, ’:'); 
read) n( naam); 
rewrite(uitlij, naarn) 

END; 

revrite(pri, 'PRINTER:') 

END; 

FUNCTION gedrag (YAR a, b, c: integer; 

d : integer) : boolean; 

BEGIN 

a :« d DIY 100; 

CASE a OF 
II : 
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«:=1; 

12 : 

8 := 2 ; 
13: 

a:= 3; 
14: 

a:=4; 

21 : 

«:» 5; 

22 : 

8 := 6 ; 

23: 

a:= ?; 
24: 


8 :- 8 ; 
41 : 

a:=9; 

42: 

9 := 10 ; 
43 

a:=11; 
51 : 

8 :- 12 ; 
52: 


«:» 13; 

53: 

8 := 14 ; 

54: 

a := 15; 

55: 

a:- 16; 

56: 

a:=17; 

57 : 

9 := 18; 

OTHERWISE 
a:= 19 

END; 

IF a > 18 THEN 
BEGIN 

write!n('fout in data ratratnu,' code ', 9 : 2 , d); 
qedraq := false 
END 

FI.SE 

qedraq := true; 
b := (d MOD 100) DIV 10; 

CASE b OF 
1 : 
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b := 1; 


2: 

b := 2; 

4: 

b:= 3; 

5: 

b 4; 

7; 

b:= 5; 

8: 

b:= 6; 

OTHFRWISF 


b := 7 

END; 

IF b > 6 l HEN 
BEGIN 

writelnCfoutb: 1, * in plaatscode bij rat', rstnu, d>; 
qedraqfalse; 

END; 

c - d MOD 10; 

CASEeOF 

3 : 

C :*» 1; 

6 : 


C := 2; 

9 : 

c:= 3; 

OTHERWISE 
c := 4 

END; 

IF e > 3 THEN 
BEGIN 

writelnCfout :',c: 1,' in hoogtecode bij rat', ratnu, d); 
gedraq := false 
END 

END; 

PROCEDURE schr 1 (i: integer); 

VAR 

j:integer; 

BEGIN 

vrite(uit[i], ratnu: i); 

FOR j := 1 TO 4 DO 

writc(»rit|ij > 'indelinglj) 1); 
write(uit[ij,''); 

TOR j 1 TO ? DO 

vrite( uitfi ], datum! j 1); 
vriteln(uit[i]) 
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ivaJ(fttf, ratnu); 

FOR i := 1 TO 4 DO 

read(irif,iiideling[i}); 
resdln(inf); 
total := 0; 

3((i retell ng[4j Dl¥ 10) Dl¥ 2) + 1; 
schrl(s); 

REPEAT 

read(inf,ii, jj); 

IFii > OTHEN 
reading nf, kk) 

ELSE 

readln(inf); 

IF (total =•• 0) AND (kk <> 0) THEN 
BEGIN 

writeCbijratnu 1), 


FOR i := 1 TO 4 DO 

wrlteC *,Inctelingfi}: i); 
vriteC); 

FOR 1 :* 1 TO 7 DO 
write(datum[i)); 
writel ri; 

write!n(‘ is de eerste observetietijd kk, * verenderd in 0enopgeteld bij * 
jjj j + kk 

END; 

IFii >= OTHFN 
BEGIN 

IFgedrag(i, j, k,ii) THEN 
BEGIN 

totaltotal + jj; 
lob3{i] := lobsfi] + 1; 

Robafi}Robslij + jj, 

Iplaatslj] ;= Iplaatslj] + 1, 

Rplaatsij] := Rplaatstj] + jj; 
ihoogtefk} := Ihoogtefk] + 1; 

Rhoogtelk] Rhooqtetk] + jj 
END 

ELSE 

BEGIN 

write!nCalanog gekke code ? bij rat ratnu, ii). 
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write(pri, Tout ’, ratnu : 1, ‘ ii: 1,' datumf 1 ]>, 

FOR i := 7 . TO 7 DO 

vrUe(pri,d8tum[i]); 

FORi - t TO 4 DO 

vrite(pri, indelingfi): 3); 
vhteln(pri) 

END 
i ND 

ELSE 

BEGIN 

IMi o-l THEN 

write! n(Vreemdeinde bii ret *, ret no); 

IF jj <> 300 THEN 
BEGIN 

v rite (‘a! oeen goed totael*, total: 1, ‘ in dataaet bij ratratnu, c 
FORi2TO 7 DO 
write(datumlil); 
write! n 

END; 

IF tote! <> 300 THEN 
BEGIN 

writeCgeengoed totaal', total, ’ bij ratratnu, datum! 13); 

FOR 1 := 2 TO ? DO 
vrite(datumlil); 


END; 


END 

UNTIL ii <0 


write! n 

END; 

FORi .= i TOobconDO 

vrite(uit|a], lobaiij • l •■). 
vritelr,(uit|sj); ' ' 

FOR ii TO obeon IX) 

vrite(uit[aj, Robsfi]: 1 ••)■ 

vriteln(uit[aj), 1 '' 

FOR i := 1 TO pleon DO 

vrite(uitfsj, ipiaetsh] • | ”)• 
FOR i:=1 TO pleon DO ' 
vrite(uitla), Rpleete(i] • 1 ••) 
FOR i := 1 TO liocoii DO ' 

vrite(uit[a], Ihoogtefi]; 1 ■■)• 
FOR ii IQ hocon DO 

write(uit3aj, Rhooatefi] j *■)• 
write! n(uit[a}); 


froccdurc nuirat; 
i: integer; 
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BEGIN 

Flip, i := I TO ftfacori Mi 

BEGIN 

loteli] 0; 
Rotel i) := 0 

END; 

FOR i 1 TO plcon DO 

BEGIN 

Iplsatsli] := 0; 
Pplaetefi] := 0 

END; 

FOR i 1 TO tmcon 00 
BEGIN 

ihoegtefi] 0; 
RhooQief.il :■ 0 
END 

END; 

BEGIN 

start; 

WHILE NOT eofCinf) DO 
BEGIN 

nulrat; 

eenrat 


END; 
closed nf); 

EOR i := 1 TO 4 DO 
close(witli)) 
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